v <- append(rep(c(1:5),2), rep(c(5:1),2))
print(v)

